home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 December / 2004-12 CHIP.iso / Narzedzia systemowe / TUGZip 3.1.0.0 / tugzip31.exe / {app} / TUGZip,1.exe / 0 / RCDATA / TUPDATEFORM / TUPDATEFORM.txt < prev   
Encoding:
Text File  |  2004-10-13  |  3.4 KB  |  176 lines
  1. object Updateform: TUpdateform
  2.   Left = 818
  3.   Top = 229
  4.   BorderStyle = bsDialog
  5.   Caption = 'TUGZip Web Update'
  6.   ClientHeight = 377
  7.   ClientWidth = 409
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Position = poScreenCenter
  16.   OnShow = FormShow
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Topbevel: TBevel
  20.     Left = 0
  21.     Top = 65
  22.     Width = 409
  23.     Height = 8
  24.     Align = alTop
  25.     Shape = bsTopLine
  26.   end
  27.   object Insverlabel: TLabel
  28.     Left = 8
  29.     Top = 72
  30.     Width = 79
  31.     Height = 13
  32.     Caption = 'Installed version:'
  33.   end
  34.   object Latverlabel: TLabel
  35.     Left = 8
  36.     Top = 88
  37.     Width = 69
  38.     Height = 13
  39.     Caption = 'Latest version:'
  40.   end
  41.   object Latverdatalabel: TLabel
  42.     Left = 112
  43.     Top = 88
  44.     Width = 3
  45.     Height = 13
  46.   end
  47.   object Insverdatalabel: TLabel
  48.     Left = 112
  49.     Top = 72
  50.     Width = 33
  51.     Height = 13
  52.     Caption = '3.1.0.2'
  53.   end
  54.   object Informationlabel: TLabel
  55.     Left = 8
  56.     Top = 112
  57.     Width = 55
  58.     Height = 13
  59.     Caption = 'Information:'
  60.   end
  61.   object Bottombevel: TBevel
  62.     Left = 8
  63.     Top = 336
  64.     Width = 393
  65.     Height = 9
  66.     Shape = bsTopLine
  67.   end
  68.   object Toppanel: TPanel
  69.     Left = 0
  70.     Top = 0
  71.     Width = 409
  72.     Height = 65
  73.     Align = alTop
  74.     BevelOuter = bvNone
  75.     Color = clWhite
  76.     TabOrder = 0
  77.     object Captionlabel: TLabel
  78.       Left = 8
  79.       Top = 8
  80.       Width = 90
  81.       Height = 13
  82.       Caption = 'Update TUGZip'
  83.       Font.Charset = DEFAULT_CHARSET
  84.       Font.Color = clWindowText
  85.       Font.Height = -11
  86.       Font.Name = 'MS Sans Serif'
  87.       Font.Style = [fsBold]
  88.       ParentFont = False
  89.     end
  90.     object Infolabel: TLabel
  91.       Left = 16
  92.       Top = 24
  93.       Width = 313
  94.       Height = 26
  95.       Caption = 
  96.         'This tool connects to the TUGZip homepage to verify that you are' +
  97.         ' using the latest version available. If you'#39're not, press Update' +
  98.         '.'
  99.       WordWrap = True
  100.     end
  101.     object Image1: TImage
  102.       Left = 352
  103.       Top = 8
  104.       Width = 48
  105.       Height = 48
  106.       AutoSize = True
  107.       Picture.Data = {<image000.bmp>}
  108.     end
  109.   end
  110.   object Memo: TMemo
  111.     Left = 8
  112.     Top = 128
  113.     Width = 393
  114.     Height = 177
  115.     ReadOnly = True
  116.     ScrollBars = ssVertical
  117.     TabOrder = 1
  118.   end
  119.   object Updatebutton: TButton
  120.     Left = 248
  121.     Top = 344
  122.     Width = 75
  123.     Height = 25
  124.     Caption = 'Update'
  125.     Default = True
  126.     Enabled = False
  127.     TabOrder = 2
  128.     OnClick = UpdatebuttonClick
  129.   end
  130.   object Progressbar: TProgressBar
  131.     Left = 8
  132.     Top = 312
  133.     Width = 393
  134.     Height = 17
  135.     Min = 0
  136.     Max = 100
  137.     TabOrder = 3
  138.   end
  139.   object Cancelbutton: TButton
  140.     Left = 328
  141.     Top = 344
  142.     Width = 75
  143.     Height = 25
  144.     Cancel = True
  145.     Caption = 'Cancel'
  146.     ModalResult = 2
  147.     TabOrder = 4
  148.     OnClick = CancelbuttonClick
  149.   end
  150.   object Helpbutton: TButton
  151.     Left = 8
  152.     Top = 344
  153.     Width = 75
  154.     Height = 25
  155.     Caption = 'Help'
  156.     TabOrder = 5
  157.     OnClick = HelpbuttonClick
  158.   end
  159.   object Http: TIdHTTP
  160.     Host = 'www.tugzip.com'
  161.     Request.Accept = 'text/html, */*'
  162.     Request.ContentLength = 0
  163.     Request.ContentRangeEnd = 0
  164.     Request.ContentRangeStart = 0
  165.     Request.ProxyPort = 0
  166.     Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
  167.     Left = 8
  168.     Top = 8
  169.   end
  170.   object Thread: TBMThread
  171.     OnExecute = ThreadExecute
  172.     Left = 40
  173.     Top = 8
  174.   end
  175. end
  176.